home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / filutil / pa_st270.zip / EXAMPLE4.POM < prev    next >
Text File  |  1995-02-01  |  5KB  |  109 lines
  1. ;  The following comment lines are for quick-reference.
  2. ;  Copy them into your own POM files to make programming easier.
  3. ;
  4. ;  In the table below:
  5. ;
  6. ;  "var"   means a variable that is being set.
  7. ;  "value" means a variable whose value is being read.
  8. ;  Square brackets [like this] indicate optional items.
  9. ;
  10. ;  -------------------------------------------  ------------------------------
  11. ;  COMMAND FORMATS                              EXAMPLE
  12. ;  ===========================================  ==============================
  13. ;  SET      var1 value1                         SET     NAME $FLINE[20 26]
  14. ;  IF       value1 value2 var1 value3 [value4]  IF      X = "Y" THEN Z = "N"
  15. ;  -------------------------------------------  ------------------------------
  16. ;  BEGIN    value1 value2                       BEGIN   LINECNTR = "3"
  17. ;  END                                          END
  18. ;  -------------------------------------------  ------------------------------
  19. ;  OUT      [value1 value2] |output-picture     OUT     "X" "X" |{PRICE}
  20. ;  OUTEND   [value1 value2] |output-picture     OUTEND  "X" "X" |{$FLINE}
  21. ;  OUTHDG   value1                              OUTHDG  "LIST OF EMPLOYEES"
  22. ;  PAGELEN  value1 [value2]                     PAGELEN "66" "N"
  23. ;  -------------------------------------------  ------------------------------
  24. ;  MINLEN   value1                              MINLEN  "15"
  25. ;  IGNORE   value1 value2                       IGNORE  PRICE "0.00"
  26. ;  ACCEPT   value1 value2                       ACCEPT  $FLINE[1 3] "YES"
  27. ;  -------------------------------------------  ------------------------------
  28. ;  TRIM     var1 spec1 character                TRIM    PRICE "R" "$"
  29. ;  PAD      var1 spec1 character len            PAD     SERIALNUM "L" "0" "10"
  30. ;  INSERT   var1 spec1 value1                   INSERT  PRICE "L" "$"
  31. ;  CHANGE   var1 value1 value2                  CHANGE  DATE "/" "-"
  32. ;  -------------------------------------------  ------------------------------
  33. ;  SPLIT    from to [,from to] [...]            SPLIT   1 250, 251 300
  34. ;  CHOP     from to [,from to] [...]            CHOP    1 250, 251 300
  35. ;  -------------------------------------------  ------------------------------
  36. ;  LOOKUP   var1 value1                         LOOKUP   PHONENUM "FRED JONES"
  37. ;  LOOKFILE value1                              LOOKFILE "C:\TABLES\DATA.TBL"
  38. ;  LOOKCOLS value1 value2 value3 value4         LOOKCOLS "1" "3" "8" "255"
  39. ;  LOOKSPEC value1 value2 value3                LOOKSPEC "Y" "N" "N"
  40. ;  -------------------------------------------  ------------------------------
  41. ;  TRACE    var1                                TRACE    PRICE
  42. ;  -------------------------------------------  ------------------------------
  43. ;
  44. ;  DEFAULT VALUES
  45. ;  --------------
  46. ;
  47. ;  MINLEN:    1
  48. ;  PAGELEN:   0
  49. ;  LOOKCOLS:  Keyfield Start = 1, End = 10; Datafield Start = 12, End = 255
  50. ;  LOOKSPEC:  Trim = Yes; Sorted = No; Case-sensitive = No
  51. ;  LOOKFILE:  No default, but you can set the file name via the /L parameter
  52. ;
  53. ;  ---------------------------------------------------------------------------
  54. ;
  55. ;
  56. ;  PADDING FOR CLARITY
  57. ;  -------------------
  58. ;
  59. ;  Before:   IF PRICE "0.00" BONUS "1.00" "0.00
  60. ;  After:    IF PRICE = "0.00" THEN BONUS = "1.00" ELSE "0.00
  61. ;
  62. ;
  63. ;******************************************************************************
  64. ;
  65. ;  Restrict the lines we'll accept
  66. ;
  67. ACCEPT $FLINE[58 60] = "IBM"
  68. ACCEPT $FLINE[58 60] = "MAC"
  69. ;
  70. ;  Pad out description, with spaces, to 40 characters
  71. ;  We'll also modify the string -PC to read -IBMPC
  72. ;    Note the trailing space after PC to ensure it's at the end of the string
  73. ;
  74. SET    descrip       = $FLINE[19 49]
  75. INSERT descrip         "@PC " "IBM"
  76. PAD    descrip         "R"   " "   "40"
  77. ;
  78. ;  Make quantity only 2 characters wide (maximum would therefore be 99)
  79. ;
  80. SET    qty           = $FLINE[63 66]
  81. TRIM   qty             "A"   " "
  82. PAD    qty             "L"   " "  "2"
  83. ;
  84. ;  Take only the last three digits of the invoice number
  85. ;
  86. SET    inv           = $FLINE[14 16]
  87. ;
  88. ;  Detect minus sign and set price accordingly
  89. ;
  90. SET    price         = $FLINE[70 76]
  91. TRIM   price           "A" " "
  92. IF     $FLINE[77]    = "-" THEN minus = "-" ELSE ""
  93. INSERT price           "L" minus
  94. PAD    price           "L" " " "7"
  95. INSERT price           "L" "$"
  96. ;
  97. ;  Set other fields; note use of uppercase for type
  98. ;
  99. SET    itemnum       = $FLINE[01 07]
  100. SET    type          = $FLUPC[51 55]
  101. SET    cat           = $FLINE[58 60]
  102. ;
  103. ;  Set output as follows:
  104. ;  Invoice, Item, Type (in uppercase), Category
  105. ;  Description, Quantity, Unit price
  106. ;
  107. OUT    "" "" |{inv} {itemnum} {type} {cat}
  108. OUTEND "" "" | {descrip} {qty}    {price}
  109.